﻿
<%
 Function getTopSubName()
 	'功能：得到第一个次菜单的菜单名
  Dim strMainMenu
  Dim strMenuID
  Dim rsZMenuId
  Dim strSQL
  Dim rsSubMenu
  dim strSubName
  Dim strCCDM

  If Trim(mCMenuName)="" And Trim(Request("MenuId"))<>"" Then
	  strMainMenu=DisplayInfo("ZCDM","YWM","ZWFTM")
	  if mMainId<>"" then 
	  strMenuID=safeRequest("MainId",0) 
	  Else 
	    if Request("MenuId")<>"" then
	      strMenuID=safeRequest("MenuId",1)
	   end if
	  end if 
	  strSQL="SELECT " & strMainMenu & ",ID,SFYCJCD,GNBZ FROM "& gDomainTableSZCDB &" WHERE YMID=" & gDomainNameID & " And SFXS=1 And id=" & strMenuID
	  Set rsZMenuId=conn.execute(strSQL)
	  If Not(rsZMenuId.Bof And rsZMenuId.Eof) then 
		  Select case Trim(rsZMenuId("GNBZ"))
		  	Case "0","6"
		  		If Trim(rsZMenuId("SFYCJCD"))="1" Then
		  			strCCDM=DisplayInfo("CCDM","YWM","ZWFTM")
			    	strSQL="SELECT ID," & strCCDM & " FROM "& gDomainTableSCCDB &" WHERE YMID=" & gDomainNameID & " AND SFXS=1 and SSZCDID=" & Trim(mMenuId) & " ORDER BY PLSX DESC"
					Set rsSubMenu=conn.execute(strSQL)
					If Not(rsSubMenu.BOF And rsSubMenu.EOF) Then
						strSubName=Trim(rsSubMenu(strCCDM))
						  
					End If
				End If
			Case "1"
			  strCCDM=DisplayInfo("0","1","2")
			  strSQL="SELECT CPLBMC,ID FROM CPLBB WHERE YMID=" & gDomainNameID & " AND ZCDM='" & Trim(rsZMenuId(strMainMenu)) & "' AND YYBZ=" & strCCDM & " ORDER BY ID DESC"
			  Set rsSubMenu=conn.execute(strSQL)
			  	If Not(rsSubMenu.BOF And rsSubMenu.EOF) Then
			  		'strSubName=Trim(rsSubMenu("CPLBMC"))
			  		strSubName=""
			  	End If
			End Select
	  End If
  End If
  getTopSubName=DisplayInfo(strSubName,strSubName,"")
 End Function
 Sub UserStyle()
 	'功能：显示用户设定的样式表
 	Dim strSQL,rsStyle
 	strSQL="SELECT * FROM CDPZB WHERE (YMID = " & gDomainNameId & ")"
 	Set rsStyle=conn.execute(strSQL)
 	If not(rsStyle.Bof And rsStyle.Eof) Then
 		%>
 		<style type="Text/Css">
 			A.menulink:link {
	COLOR:<%=Trim(rsStyle("WZZCYS"))%>; FONT-SIZE: <%=Trim(rsStyle("WZDX"))%>px;FONT-FAMILY: <%=Trim(rsStyle("WZZT"))%>,Arial;
}
A.menulink:visited {
	COLOR:<%=Trim(rsStyle("WZZCYS"))%>; FONT-SIZE: <%=Trim(rsStyle("WZDX"))%>px;FONT-FAMILY: <%=Trim(rsStyle("WZZT"))%>,Arial;
}

A.menulink:hover {
	COLOR: <%=Trim(rsStyle("WZLJYS"))%>; FONT-SIZE: <%=Trim(rsStyle("WZDX"))%>px;FONT-FAMILY: <%=Trim(rsStyle("WZZT"))%>,Arial;
}
A.menulink:active {
	COLOR:<%=Trim(rsStyle("WZZCYS"))%> ; FONT-SIZE: <%=Trim(rsStyle("WZDX"))%>px;FONT-FAMILY: <%=Trim(rsStyle("WZZT"))%>,Arial;
}

A.divLink {
	COLOR: <%=Trim(rsStyle("DBWZZCYS"))%>; FONT-SIZE: <%=Trim(rsStyle("DBWZDX"))%>px;FONT-FAMILY: <%=Trim(rsStyle("ZCDWZZT"))%>,Arial;
}
A.divLink:link {
	COLOR: <%=Trim(rsStyle("DBWZZCYS"))%>; FONT-SIZE: <%=Trim(rsStyle("DBWZDX"))%>px;FONT-FAMILY: <%=Trim(rsStyle("ZCDWZZT"))%>,Arial;
	}
A.divLink:visited {
	COLOR:<%=Trim(rsStyle("DBWZZCYS"))%>; FONT-SIZE: <%=Trim(rsStyle("DBWZDX"))%>px;FONT-FAMILY: <%=Trim(rsStyle("ZCDWZZT"))%>,Arial;
}
A.divLink:hover {
	 COLOR: <%=Trim(rsStyle("DBWZLJYS"))%>; FONT-SIZE: <%=Trim(rsStyle("DBWZDX"))%>px;FONT-FAMILY: <%=Trim(rsStyle("ZCDWZZT"))%>,Arial;
} 


A.bmlink {
	COLOR: <%=Trim(rsStyle("DBWZZCYS"))%>; FONT-SIZE: <%=Trim(rsStyle("DBWZDX"))%>px;FONT-FAMILY: <%=Trim(rsStyle("DBWZZT"))%>,Arial;
}
A.bmlink:link {
	COLOR: <%=Trim(rsStyle("DBWZZCYS"))%>; FONT-SIZE: <%=Trim(rsStyle("DBWZDX"))%>px;FONT-FAMILY: <%=Trim(rsStyle("DBWZZT"))%>,Arial;
	}
A.bmlink:visited {
	COLOR:<%=Trim(rsStyle("DBWZZCYS"))%>; FONT-SIZE: <%=Trim(rsStyle("DBWZDX"))%>px;FONT-FAMILY: <%=Trim(rsStyle("DBWZZT"))%>,Arial;
}
A.bmlink:hover {
	 COLOR: <%=Trim(rsStyle("DBWZLJYS"))%>; FONT-SIZE: <%=Trim(rsStyle("DBWZDX"))%>px;FONT-FAMILY: <%=Trim(rsStyle("DBWZZT"))%>,Arial;
} 
 		</style>
 		<%
 	End If
 end Sub
 Sub PageNode(vPageInfoId)
	'功能：显示网页中的主内容信息
	'参数：vPageInfoId   要显示网页中的主内容的ID
	Dim infoWord
    Dim rsDYWZBZ'保存目录的单页文章标记
    Dim rsZShowMenuTitle
    Dim rsCShowMenuTitle
    Dim strCCDM
    Dim strDYWZBZ
    Dim strZCDM
    Dim strDYWZNR
    Dim strSQL
    Dim rsSubMenu
    Dim TopSubMenu
    dim ccdsfjm
    dim strxswz
    dim intgnbzs
    TopSubMenu=getTopSubName()
    If Trim(vPageInfoId)<>"5" Then%>
    <table id="NodeTable" border="0" cellpadding="0" cellspacing="0" width="100%">
      <tr>
        <td align="center" valign="top">
        <table border="0" cellpadding="0" cellspacing="0" width="95%">
        <%strSQL="select xswz from SYCPB where YYBZ=" & DisplayInfo("0","1","2") & " and  YMID=" & gDomainNameID
		 Set rsZShowMenuTitle=conn.execute(strSQL)
		 if rsZShowMenuTitle.bof and rsZShowMenuTitle.eof then
		 	conn.execute "insert into SYCPB(YMID,SFXS,XSWZ,XSSL,CPID,YYBZ) values("&gDomainNameID&",0,0,0,'',0)"
		 	conn.execute "insert into SYCPB(YMID,SFXS,XSWZ,XSSL,CPID,YYBZ) values("&gDomainNameID&",0,0,0,'',1)"
		 	strxswz=0
		 else
			strxswz=trim(rsZShowMenuTitle("xswz")) 
		 end if
       
       Set rsZShowMenuTitle=Nothing
       ' response.write strxswz %>
        
        
      <tr>
      <td width="100%" align="center"><%
     response.write "SSS"
    '  response.end
     Call showFlowNews(500)%></td>
      </tr>
      <%If mZMenuName<>"" or  Trim(safeRequest("Title",0))<>"" then 
           if not mZMenuName="首页" Then  
           if not mZMenuName="HomePage" Then %>
      <tr>
        <td height=25 width="0%" id="MyPath" align="left" nowrap>
      
        <%'response.write mFind
        if mFind="" then 
        If mZMenuName<>"" then
            response.write DisplayInfo("当前位置：","CurrentPosition：","當前位置：") 
             response.write displayInfo(mZMenuName,mZMenuName,"")
           end if  %>
        <%if mCMenuName<>"" then response.write "&gt;&gt;" & DisplayInfo(mCMenuName,mCMenuName,"")%>
        <%if TopSubMenu<>"" then response.write "&gt;&gt;" & DisplayInfo(TopSubMenu,TopSubMenu,"")
       else
       
        
    		dim arrvFindPPP,strFindClsPPP,vPrdCls,strFind,strMainMenu,rsProduct
    	   	arrvFindPPP=split(mFind,"_")
    	        strFindClsPPP=arrvFindPPP(0)
    	        response.write DisplayInfo("当前位置：","CurrentPosition：","當前位置：")  
    	        strMainMenu=DisplayInfo("ZCDM","YWM","ZWFTM")
     		 if strFindClsPPP="000000" then
        		 'response.write  mCMenuName
        		 if mCMenuName<>"" then response.write "&gt;&gt;" & DisplayInfo(mCMenuName,mCMenuName,"")
        	else
        		' response.write strFindClsPPP	
        		 
        		 		If Clng(Mid(strFindClsPPP,2,len(strFindClsPPP)))>0 Then
    					 
    			  		 
    		  			 	 IF mid(strFindClsPPP,1,1)=0 then
    		    					strSQL=  "Select " & strMainMenu & " FROM "& gDomainTableSZCDB &" WHERE (ID = " & Mid(strFindClsPPP,2,len(strFindClsPPP)) & ")"
    						  Else
    							strSQL="Select " & strMainMenu & " FROM "& gDomainTableSZCDB &" WHERE (ID = " & GetZMenuID(Mid(strFindClsPPP,2,len(strFindClsPPP))) & ")"		   
    						End If
    						Set rsProduct=Server.CreateObject("ADODB.RecordSet")
    						rsProduct.Open strSQL,conn,1,1
    					 	if not rsProduct.eof then
    					 		response.write trim(rsProduct(strMainMenu))
    					 	end if 
    					End If
    					 IF mid(strFindClsPPP,1,1)=1 then
    						if mCMenuName<>"" then response.write "&gt;&gt;" & DisplayInfo(mCMenuName,mCMenuName,"")	
        		   		 end if 
        		     '  response.write strfind
    				'response.end
         	end if 
        end if 
        
        %>
        <%if Trim(safeRequest("Title",0))<>"" Then response.write Trim(safeRequest("Title",0))%>
        <%dim zpid '招聘信息ID
         zpid=safeRequest("zpid",1)
        %>
        </td>
      </tr>
      <%  end if
            end if 
           end if %>
      <%if strxswz="1" then%>
        	<tr><td align="center"><%Call showNewPrd(570)%></td></tr>
        <%end if%>
    </table>
    <%End IF
	Select Case Trim(vPageInfoId)
		Case "0"'连接文章
	   If Trim(mCMenuName)="" Then
		    '查看主菜单是否有单页文章标志
		    strZCDM=DisplayInfo("ZCDM","YWM","ZWFTM")
		    strDYWZNR=DisplayInfo("DYWZNR","EWWZNR","FTWZNR")
		    strSQL="SELECT " & strZCDM & " FROM "& gDomainTableSZCDB &" WHERE ID=" & Trim(mMenuId) 
		    'response.write strsql 
		    'response.end
		    Set rsZShowMenuTitle=conn.execute(strSQL)
		    If Trim(rsZShowMenuTitle.BOF And rsZShowMenuTitle.EOF) Then
		    	response.write DisplayInfo("此菜单已经被删除","The Menu has been deleted","此功能表已經被刪除")
		    	response.end
		    End If
		    mZMenuName=Trim(rsZShowMenuTitle(strZCDM))
		    'response.write mZMenuName
		    'response.end
			strSQL="SELECT SFJM,DYWZBZ," & strDYWZNR & ",SFYCJCD FROM "& gDomainTableSZCDB &" WHERE YMID=" & gDomainNameID & " AND " & strZCDM & "='" & Trim(rsZShowMenuTitle(strZCDM)) & "' And ID=" & mMenuId
		Else
		    '查看次菜单是否有单页文章标志
		    strCCDM=DisplayInfo("CCDM","YWM","ZWFTM")
			strDYWZNR=DisplayInfo("DYWZNR","EWWZNR","FTWZNR")
			strSQL="SELECT SSZCDID," & strCCDM & " FROM "& gDomainTableSCCDB &" WHERE ID=" & Trim(mMenuId)
		    'response.Write strSQL
		    'response.end
		    Set rsCShowMenuTitle=conn.execute(strSQL)
		    If Trim(rsCShowMenuTitle.BOF And rsCShowMenuTitle.EOF) Then
		    	response.write DisplayInfo("此菜单已经被删除","The Menu has been deleted","此功能表已經被刪除")
		    	response.end
		    End If
			mCMenuName=rsCShowMenuTitle(strCCDM)
			strSQL="SELECT SFJM,DYWZBZ," & strDYWZNR & " FROM "& gDomainTableSCCDB &" WHERE YMID=" & gDomainNameID & " AND " & strCCDM & "='" & Trim(rsCShowMenuTitle(strCCDM)) & "' And SSZCDID=" & Trim(rsCShowMenuTitle("SSZCDID"))
		End If
		'response.Write strSQL & mCMenuName
		'response.end
		Set rsDYWZBZ=conn.execute(strSQL)
		If Not(rsDYWZBZ.BOF And rsDYWZBZ.EOF) Then
			If Trim(rsDYWZBZ("DYWZBZ"))="1" Then
			      if Trim(rsDYWZBZ("SFJM"))="1" and (mVerLevel=4 Or mVerLevel=6 or mVerLevel=7 or mVerLevel=8) and  Session("sEZUserqx")<>"1" Then   '''''''''''''加密
    					  response.write DisplayInfo("对不起，你未登陆或你的权限不足！","Sorry  You are not logged in or It's not accessible","对不起，你未登陆或你的权限不足！")	
    		               else
			              Call ShowDYWZ(Trim(mZMenuName),Trim(rsDYWZBZ(strDYWZNR)))
			       end if   
			Else
			    If Trim(mCMenuName)="" Then
			      If Trim(rsDYWZBZ("SFYCJCD"))="1" Then
			    	'取出第一个次菜单
			    	strCCDM=DisplayInfo("CCDM","YWM","ZWFTM")
			    	strDYWZBZ=0
			    	strDYWZNR=""
			    	strDYWZNR=DisplayInfo("DYWZNR","EWWZNR","FTWZNR")
			    	strSQL="SELECT ljdz,gnbz,sfjm,ID,CCDM," & strCCDM & ",YWM,ZWFTM,DYWZBZ," & strDYWZNR & " FROM "& gDomainTableSCCDB &" WHERE YMID=" & gDomainNameID & " AND SFXS=1 and SSZCDID=" & Trim(mMenuId) & " ORDER BY PLSX DESC"
					'Response.Write "SubSQL:" & strSQL & vbCrLf 
					Set rsSubMenu=conn.execute(strSQL)
					If Not(rsSubMenu.BOF And rsSubMenu.EOF) Then
							intgnbzs=rsSubMenu("gnbz")
						mCMenuName=Trim(rsSubMenu(strCCDM))
						strDYWZBZ=Trim(rsSubMenu("DYWZBZ"))
						strDYWZNR=Trim(rsSubMenu(strDYWZNR))
						ccdsfjm=Trim(rsSubMenu("SFJM"))
						mMenuId=Trim(rsSubMenu("ID"))
						mCPath=mCPath & chr(38) & "gt;" & chr(38) & "gt;" & Trim(rsSubMenu("CCDM"))
						mEPath=mEPath & chr(38) & "gt;" & chr(38) & "gt;" & Trim(rsSubMenu("YWM"))
						mFPath=mFPath & chr(38) & "gt;" & chr(38) & "gt;" & Trim(rsSubMenu("ZWFTM"))
					End If
				  End IF
			    End If
			    
			 	'''''为链接时链接地址 
			    if intgnbzs="8"  or intgnbzs="13" or intgnbzs="14" then
			    response.Redirect trim(rsSubMenu("ljdz"))
			    response.end
			    end if
			    ''''''为空页时调用空页
			    if intgnbzs="10" then
 			 Response.Redirect "MainFrame.asp?MenuId=" & mMenuId & chr(38) & "mainID=" & Trim(Request("MenuId"))  & chr(38) & "InfoId=18"   & chr(38) & "Find=" & dvHTMLEncode(Trim(safeRequest("Find",0)))  & chr(38) & "Title=" & dvHTMLEncode(Trim(safeRequest("Title",0)))  & chr(38) & "MainId=" & Trim(safeRequest("MainId",0)) 
			    	 response.end
			    end if 
			if (Trim(rsDYWZBZ("SFJM"))="1"  or ccdsfjm="1") and (mVerLevel=4 Or mVerLevel=6  or mVerLevel=7 or mVerLevel=8) and  Session("sEZUserqx")<>"1" Then   '''''''''''''加密
      				response.write DisplayInfo("对不起，你未登陆或你的权限不足！","Sorry  You are not logged in or It's not accessible","对不起，你未登陆或你的权限不足！")
      		        else
			   '查看次菜单中的所有文章
			    If Trim(mCMenuName)<>"" Then
			        IF Trim(strDYWZBZ)="1" Then
			        	Call ShowDYWZ(Trim(mZMenuName),Trim(strDYWZNR))
			        Else
			        	Call ShowWZList(Trim(mMenuId),Trim(mZMenuName),Trim(mCMenuName),"15",Trim(intPrdPageNum))
			    	End If
			    Else
			    	Call ShowWZList(Trim(mMenuId),Trim(mZMenuName),Trim(mCMenuName),"15",Trim(intPrdPageNum))
			    End If
			end if    
		End If
			 If Trim(vPageInfoId)<>"5" Then%>
       <Script language="vbscript">
    	Call SetPath("<%=DisplayInfo(mCPath,mEPath,mFPath)%>")
    </script>
    <%End IF
   Else
	 If Trim(vPageInfoId)<>"5" Then%>
       <Script language="vbscript">
    	Call SetPath("<%=DisplayInfo(mCPath,mEPath,mFPath)%>")
    </script>
    <%End IF
			response.Write "没有发现所查看的菜单"
			response.end
    End If
		Case "1"'连接产品
		 If Trim(vPageInfoId)<>"5" Then%>
       <Script language="vbscript">
    	Call SetPath("<%=DisplayInfo(mCPath,mEPath,mFPath)%>")
    </script>
    <%End IF 
   strZCDM=DisplayInfo("ZCDM","YWM","ZWFTM")
         strsql="select SFJM from "& gDomainTableSZCDB &" WHERE YMID=" & gDomainNameID & " And " & strZCDM &"='"& Trim(mZMenuName) &"'"
           set rsDYWZBZ=conn.execute (strsql)
        if not(rsDYWZBZ.eof and rsDYWZBZ.bof) then
                  if Trim(rsDYWZBZ("SFJM"))="1" and (mVerLevel=4 Or mVerLevel=6 or mVerLevel=7 or mVerLevel=8) and  Session("sEZUserqx")<>"1" Then   '''''''''''''加密
			      response.write DisplayInfo("对不起，你未登陆或你的权限不足！","Sorry  You are not logged in or It's not accessible","对不起，你未登陆或你的权限不足！")
		 else
				Call PageDisplayProduct(Trim(mMenuId),Trim(mZMenuName),Trim(mCMenuName),Trim(intPrdPageNum),Trim(mFind))
		end if
		
	end if	
		Case "2"'连接定单
		 If Trim(vPageInfoId)<>"5" Then%>
       <Script language="vbscript">
    	Call SetPath("<%=DisplayInfo(mCPath,mEPath,mFPath)%>")
    </script>
    <%End If
    	If mVerLevel=4 then
    		Call ShowOrder()
    	Else
			Call ShowDD(mBeginTime,mEndTime)
		End IF
		Case "3"'用户留言
		 If Trim(vPageInfoId)<>"5" Then%>
       <Script language="vbscript">
    	Call SetPath("<%=DisplayInfo(mCPath,mEPath,mFPath)%>")
    </script>
    <%End If
			'*****此处代码有张东生修改***2005-12-15***原因：向PageUserWord()函数传递菜单id******
			Call PageUserWord(Request("MenuId"))
			'*****此处代码有张东生修改***2005-12-15***原因：向PageUserWord()函数传递菜单id******
		Case "4"'用户注册
		 If Trim(vPageInfoId)<>"5" Then%>
    <Script language="vbscript">
    	'MyPath.innerHTML="<%=DisplayInfo("当前位置：用户注册","CurrentPosition：Member Registration","当前位置：用户注册")%>"
    </script>
    <%End IF
			Call UserRegister()
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Case "110"'修改密码
		 If Trim(vPageInfoId)<>"5" Then%>
    <Script language="vbscript">
    	'MyPath.innerHTML="<%=DisplayInfo("当前位置：修改密码","CurrentPosition：Member Registration","当前位置：用户注册")%>"
    </script>
    <%End IF
			Call Updateword()
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
		Case "5"'信息提示页
		 If Trim(vPageInfoId)<>"5" Then%>
       <Script language="vbscript">
    	Call SetPath("<%=DisplayInfo(mCPath,mEPath,mFPath)%>")
    </script>
    <%End IF
		    Call PageDisplayInfo(Trim(mInfoWordId))
		    
                Case "6"'产品祥细信息查看页
		if info="ok" then		
		 Call ShowProductM(Trim(mMenuId),Trim(mMainId))
		else
		 If Trim(vPageInfoId)<>"5" Then%>
       <Script language="vbscript">
    	Call SetPath("<%=DisplayInfo(mCPath,mEPath,mFPath)%>")
    </script>
    <%End IF
			Call ShowPrdNode(Trim(mMenuId))
	        end if
		Case "7"'文章内容查看
		 If Trim(vPageInfoId)<>"5" Then%>
       <Script language="vbscript">
    	Call SetPath("<%=DisplayInfo(mCPath,mEPath,mFPath)%>")
    </script>
    <%End IF
           Call ShowArtNode(Trim(mMenuId),Trim(mMainId))
    '***以下代码申双林添加***2003-11-13 8:59****原因：调用信息服务***
     Case "8"'用户订单表单
        	If Trim(vPageInfoId)<>"5" Then%>
       <Script language="vbscript">
    	Call SetPath("<%=DisplayInfo(mCPath,mEPath,mFPath)%>")
    </script>
    <%End IF
             Call ShowFormDD()
    Case "9"'信息服务
	    If Trim(vPageInfoId)<>"5" Then%>
	       <Script language="vbscript">
	    		Call SetPath("<%=DisplayInfo(mCPath,mEPath,mFPath)%>")
	    	 </script>
	    <%End IF
	    Call UserMessage()
	  '***以上代码申双林添加***2003-11-13 8:59****原因：调用信息服务***
	 Case "10"'现金增加(mhy)
        	If Trim(vPageInfoId)<>"5" Then%>
       <Script language="vbscript">
    	Call SetPath("<%=DisplayInfo(mCPath,mEPath,mFPath)%>")
    </script>
    <%End IF
        	Call AddMoney()
        Case "11"'财务查看(mhy)
        	If Trim(vPageInfoId)<>"5" Then%>
       <Script language="vbscript">
    	Call SetPath("<%=DisplayInfo(mCPath,mEPath,mFPath)%>")
    </script>
    <%End IF
        	Call ShowMoney()
        Case "12"'订单查看(mhy)
        	If Trim(vPageInfoId)<>"5" Then%>
       <Script language="vbscript">
    	Call SetPath("<%=DisplayInfo(mCPath,mEPath,mFPath)%>")
    </script>
    <%End IF
        	Call ShowOrder()
         Case "13"'站内搜索
        	If Trim(vPageInfoId)<>"5" Then%>
    <Script language="vbscript">
    	Call SetPath("<%=DisplayInfo("当前位置：站内搜索","CurrentPosition：Search","當前位置：站內搜索")%>")
    </script>
    <%End IF
           Call WebSearch(gDomainNameID,mFind,"15",Trim(intPrdPageNum))
           Call WebSearchP(gDomainNameID,mFind,"15",Trim(intPrdPageNum))
		Case "14"'链接空白页
		case "15"'人才招聘
			If Trim(vPageInfoId)<>"5" Then%>
			   <Script language="vbscript">
				Call SetPath("<%=DisplayInfo(mCPath,mEPath,mFPath)%>")
			   </script>
			<%end if
			call ShowRecruitment()'人才招聘函数
		case "16"'自定义表单
			If Trim(vPageInfoId)<>"5" Then%>
			   <Script language="vbscript">
				Call SetPath("<%=DisplayInfo(mCPath,mEPath,mFPath)%>")
			   </script>
			<%end if
			call showUserDefineForm(trim(Request("MenuId")))'自定义表单函数
		case "17" 
		 If Trim(vPageInfoId)<>"5" Then%>
		    <Script language="vbscript">
				Call SetPath("<%=DisplayInfo(mCPath,mEPath,mFPath)%>")
	            </script>		         		        		       
		 <%end if
		 call showmoreinfo(zpid)
		 mIsFirstPage=false
		 case "20"  ' 注册协议
		           call userxy()
			If Trim(vPageInfoId)<>"5" Then%>
			   <Script language="vbscript">
				Call SetPath("<%=DisplayInfo(mCPath,mEPath,mFPath)%>")
			   </script>
			<%end if
			
		
		Case Else
	End Select
	If Trim(vPageInfoId)<>"5" Then%>
	</td>
	</tr>
	<%if strxswz<>"1" then%><tr><td align="center" valign="bottom"><%Call showNewPrd(500)%></td></tr><%end if%>
	</table>
	<%End If
End Sub
%>  
<%'------------------------------------------------------------------%>

 
<%Function getImagePath(vStrStylePath)
	'功能：根据样式表的路径得到样式表的路径
	'参数：vStrStylePath 样式表的路径
	Dim intIndex
	Dim strPath
	strPath=Replace((vStrStylePath),"\","/")
	intIndex=InStrRev(strPath,"/")
	If intIndex>0 Then
		getImagePath=Left(strPath,intIndex) & "Image/"
	Else
		getImagePath=""
	End If
	'response.Write "StylePath=" & strPath & "  IntIndex=" & intindex & "   GetPath=" & getpath 
  End Function
   %>
   <%Function MenuProperty(vMainMenuID,vSubMenuId)
	  '功能：确定菜单的性质
	  '　　1　单页编辑子菜单
	  '　　2　文章子菜单
	  '　　3　单页编辑主菜单
	  '　　4　没有子菜单的主菜单||有子菜单的主菜单&&子菜单个数为0
	  '　　5　有子菜单的主菜单&&子菜单全部为单页编辑
	  '　　6　有子菜单的主菜单&&子菜单中有文章子菜单
	  Dim strSQL
	  Dim rsMenu
	  If vMainMenuID="" then 
	  	response.write "菜单选择不误"
	  	Exit Function
	  end if
	  '取出子菜单信息
	  If vSubMenuId<>"" Then
	  	strSQL="SELECT DYWZBZ FROM "& gDomainTableSCCDB &" WHERE (ID = " & vSubMenuId & ")"
	  	Set rsMenu=conn.execute(strSQL)
	  	If rsMenu.Bof And rsMenu.Eof then
	  		response.write "你所选择的子菜单已经被删除"
	  		Exit Function
	  	Else
	  		If Trim(rsMenu("DYWZBZ"))="1" then
	  			MenuProperty=1
	  			Exit Function'　　1　单页编辑子菜单->
	  		Else
	  			MenuProperty=2
	  			Exit Function'　　2　文章子菜单->
	  		End if
	  	End if
	  Else
	  	strSQL="SELECT SFYCJCD,DYWZBZ FROM "& gDomainTableSZCDB &" WHERE (ID = " & vMainMenuID & ")"
	  	Set rsMenu=conn.execute(strSQL)
	  	If rsMenu.Bof And rsMenu.Eof then
	  		response.write "你所选择的主菜单已经被删除"
	  		Exit Function
	  	Else
	  		If Trim(rsMenu("DYWZBZ"))="1" then
	  			MenuProperty=3
	  			Exit Function'　　3　单页编辑主菜单->
	  		Else
	  			If Trim(rsMenu("SFYCJCD"))=1 Then
	  				strSQL="SELECT DYWZBZ FROM "& gDomainTableSCCDB &" WHERE (SSZCDID = " & vMainMenuID & ")"
	  				Set rsMenu=conn.execute(strSQL)
	  				If rsMenu.Bof And rsMenu.Eof then
	  					MenuProperty=4
	  					Exit Function'　　4　没有子菜单的主菜单||>>有子菜单的主菜单&&子菜单个数为0->
	  				Else
	  					strSQL="SELECT DYWZBZ FROM "& gDomainTableSCCDB &" WHERE (SSZCDID = " & vMainMenuID & " AND (DYWZBZ IS NULL OR DYWZBZ=0))"
	  					Set rsMenu=conn.execute(strSQL)
	  					If rsMenu.Bof And rsMenu.Eof then
	  						MenuProperty=5
	  						Exit Function'　　5　有子菜单的主菜单&&子菜单全部为单页编辑->
	  					Else
	  						MenuProperty=6
	  						Exit Function'　　6　有子菜单的主菜单&&子菜单中有文章子菜单->
	  					End If
	  				End If
	  			Else
	  				MenuProperty=4
	  				Exit Function'　　4　>>没有子菜单的主菜单||有子菜单的主菜单&&子菜单个数为0->
	  			End If
	  		End if
	  	End if
	  End if
	 ' Set rsMenu=Nothing
  End Function%>  
   <%Sub ShowPic(vPicPath)
   	 '功能显示模板中的图片
   	 	Dim strLnkType
   	 	Dim strDsp
   	 	Dim strPicPath
   	 	If Trim(vPicPath)="" Then exit Sub
   	 	strPicPath=gModePath & vPicPath
   	 	strLnkType=""
      	strLnkType=Ucase(Mid(strPicPath,len(strPicPath)-2,len(strPicPath)))
      	If strLnkType="SWF" Then
        	'Flash Logo
        	    %><OBJECT style="<%=setPicSize(gCssPath & "/" & strPicPath,"","")%>" codeBase=http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0 classid=clsid:D27CDB6E-AE6D-11cf-96B8-444553540000>
        		<PARAM NAME='_cx' VALUE='8837'>
        		<PARAM NAME='_cy' VALUE='5503'>
        		<PARAM NAME='FlashVars' VALUE='8837'>
        		<PARAM NAME='Movie' VALUE='<%=strPicPath%>'>
        		<PARAM NAME='Src' VALUE='<%=strPicPath%>'>
        		<PARAM NAME='Play' VALUE='-1'>
        		<PARAM NAME='Loop' VALUE='-1'>
        		<PARAM NAME='Quality' VALUE='High'>
        		<PARAM NAME='SAlign' VALUE=''>
        		<PARAM NAME='Menu' VALUE='-1'>
        		<PARAM NAME='Base' VALUE=''>
        		<PARAM NAME='AllowScriptAccess' VALUE='always'>
        		<PARAM NAME='Scale' VALUE='ShowAll'>
        		<PARAM NAME='DeviceFont' VALUE='0'>
        		<PARAM NAME='EmbedMovie' VALUE='0'>
        		<PARAM NAME='BGColor' VALUE=''>
        		<PARAM NAME='SWRemote' VALUE=''>
        		<param name="wmode" value="transparent">
        	</OBJECT><%
        Else%><img src="<%=strPicPath%>"><%
        End If
   	 End sub%>
<%'------------------------------------------------------------------%>   
<%Sub ShowMode(vIntMBID,vZNRId)
'response.write vIntMBID & "<br>"
'response.write vZNRId
'response.end
  '功能：根据模板类型选择显示模板
  '参数：vIntMBID 用户选择的模板Id号
  '      vZNRId 网页显示的内容Id
  '      vinfoWord 保存信息页中显示的信息
  '      vZMenu  保存主菜单的名称
  '      vCMenu  保存次菜单的名称
  '      vPrdPageNum  保存要显示产品的页数
  '      BeginTime  查看订单的开始时间
  '      EndTime   查看订单的结束时间
  '      vFind     要查找产品的名称
 Dim NodeHeight
 NodeHeight="300"
  If Trim(safeRequest("InfoId",1))="14" Then
	  '空页模板%>
	  <!--#INCLUDE File="Mode/NullPage.asp"-->
	  <%
	  Exit Sub
  End If
   If Trim(safeRequest("InfoId",1))="18" Then
	  '子菜单空页模板%>
	  <!--#INCLUDE File="Mode/submenuNullPage.asp"-->
	  <%
	  Exit Sub
  End If

  Select Case vIntMBID
  
  	Case 1%>
<!--#INCLUDE File="Mode/I.asp"-->
  <%Case 2,11%>
<!--#INCLUDE File="Mode/II.asp"-->    
  <%Case 3%>
<!--#INCLUDE File="Mode/III.asp"-->       
  <%Case 4%>
<!--#INCLUDE File="Mode/IV.asp"-->  
  <%Case 5%>
<!--#INCLUDE File="Mode/V.asp"-->      
  <%Case 6%>
<!--#INCLUDE File="Mode/VI.asp"-->   
  <%Case 7,15%>
<!--#INCLUDE File="Mode/VII.asp"-->   	
  <%Case 8,20%>
<!--#INCLUDE File="Mode/VIII.asp"-->  
  <%Case 9%>
<!--#INCLUDE File="Mode/IX.asp"-->
  <%Case 10%>
<!--#INCLUDE File="Mode/X.asp"-->
  <%Case 12%>
<!--#INCLUDE File="Mode/XII.asp"-->
  <%Case 13%>
<!--#INCLUDE File="Mode/XIII.asp"-->
  <%Case 14,19%>
<!--#INCLUDE File="Mode/IVX.asp"-->
  <%Case 16%>
<!--#INCLUDE File="Mode/XVI.asp"-->
  <%Case 17%>
<!--#INCLUDE File="Mode/XVII.asp"-->
  <%Case 18%>
<!--#INCLUDE File="Mode/XVIII.asp"-->
  <%Case Else%>
      用户选择的模板无效<%=vIntMBID%>
  <%End Select%>
  <%End Sub%>
  
  
  
  
  <%Sub ShowModekp(vIntMBID,vZNRId)
'response.write vIntMBID & "<br>"
'response.write vZNRId
'response.end
  '功能：根据模板类型选择显示模板
  '参数：vIntMBID 用户选择的模板Id号
  '      vZNRId 网页显示的内容Id
  '      vinfoWord 保存信息页中显示的信息
  '      vZMenu  保存主菜单的名称
  '      vCMenu  保存次菜单的名称
  '      vPrdPageNum  保存要显示产品的页数
  '      BeginTime  查看订单的开始时间
  '      EndTime   查看订单的结束时间
  '      vFind     要查找产品的名称
 Dim NodeHeight
 NodeHeight="300"
  If Trim(safeRequest("InfoId",1))="14" Then
	  '空页模板%>
	  <!--#INCLUDE File="Mode/kpNullPage.asp"-->
	  <%
	  Exit Sub
  End If
   If Trim(safeRequest("InfoId",1))="18" Then
	  '子菜单空页模板%>
	  <!--#INCLUDE File="Mode/kpsubmenuNullPage.asp"-->
	  <%
	  Exit Sub
  End If

  Select Case vIntMBID
  
  	Case 1%>
<!--#INCLUDE File="Mode/kpI.asp"-->
  <%Case 2,11%>
<!--#INCLUDE File="Mode/kpII.asp"-->    
  <%Case 3%>
<!--#INCLUDE File="Mode/kpIII.asp"-->       
  <%Case 4%>
<!--#INCLUDE File="Mode/kpIV.asp"-->  
  <%Case 5%>
<!--#INCLUDE File="Mode/kpV.asp"-->      
  <%Case 6%>
<!--#INCLUDE File="Mode/kpVI.asp"-->   
  <%Case 7,15%>
<!--#INCLUDE File="Mode/kpVII.asp"-->   	
  <%Case 8,20%>
<!--#INCLUDE File="Mode/kpVIII.asp"-->  
  <%Case 9%>
<!--#INCLUDE File="Mode/kpIX.asp"-->
  <%Case 10%>
<!--#INCLUDE File="Mode/kpX.asp"-->
  <%Case 12%>
<!--#INCLUDE File="Mode/kpXII.asp"-->
  <%Case 13%>
<!--#INCLUDE File="Mode/kpXIII.asp"-->
  <%Case 14,19%>
<!--#INCLUDE File="Mode/kpIVX.asp"-->
  <%Case 16%>
<!--#INCLUDE File="Mode/kpXVI.asp"-->
  <%Case 17%>
<!--#INCLUDE File="Mode/kpXVII.asp"-->
  <%Case 18%>
<!--#INCLUDE File="Mode/kpXVIII.asp"-->
  <%Case Else%>
      用户选择的模板无效<%=vIntMBID%>
  <%End Select%>
  <%End Sub%>